home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / test / rand.awk < prev    next >
Encoding:
AWK Script  |  1993-10-20  |  97 b   |  7 lines
  1. BEGIN {
  2.     srand()
  3.     for (i = 0; i < 19; i++) 
  4.         printf "%3d ", (1 + int(100 * rand()))
  5.     print ""
  6. }
  7.